Public Sub emisor()
    Dim var As String
    var = "Hola"
    Call receptor(var)
    Debug.Print var
End Sub

Private Sub emisor()
    Dim var As String
    var = "Hola"
    Call receptor(var)
    Debug.Print var
End Sub
